Паскаль
10-11 класс
|
Дан массив размера n и целые числа К и 1 (1? K? 1?n) . Найти сумму элементов массива с номерами от К до 1 включительно.
const n = 10;
var a :array [1..n] of integer; i, k, sum :integer;
begin
for i:= 1 to n do readln(a[i]); readln(k); sum:= 0; for i:= 1 to k do sum:= sum + a[i];
end.
Uses crt;
Var m:array[1..1000] integer;
i,n,k,sm:integer;
Begin
Clrscr;
Writeln('Введите размер массива '); readln(n);
Repeat
Writeln('Введите K < ',n) readln(k);
Until k<=n;
For i:=1 to n do
M[i]:=random(60)+1;
Sm:=0;
For i:=k downto 1 do
Sm:=sm+m[i];
Writeln('Сумма элементов массива с нумерацией от 1 до ',k,' равно ',sm);
Readkey;
End.
Другие вопросы из категории
]Варіант-1
Дана послідовність слів. Визначити кількість букв “А” і “Б” в ній. Якщо таких букв немає, то вивести повідомлення.
Варіант-2
Скласти програму, яка підраховує число тих слів у реченні із И букв, в яких на другій позиції знаходиться задана буква. Слова розділенні пропусками. Якщо таких слів немає, то видається повідомлення .
Варіант-3
Скласти програму, яка із заданого слова вилучає всі букви “А”.
Варіант-4
Скласти програму, яка виводить на екран всі символи.
Варіант-5
Скласти програму, яка визначає скільки цифр у заданому числі і знаходить їх добуток.
Варіант-6
Скласти програму, яка підраховує кількість букв у введеному реченні. Словом м/б розділенні пропусками, або комами.
Варіант-7
Написати програму, яка перевіряє чи стоїть перед “що” кома.
Варіант-8
Написати програму, яка перевіряє чи поставили в кінці речення, що вводиться крапка.
Варіант-9
Скласти програма, яка виводить слово ззаду на перед.
Варіант-10
Дана послідовність слів. Перевірити чи є в ній задане слово.
Варіант-11
Задати речення. Програма повинна виводити на екран всі символи, що зустрічаються до першого знака “-”. Якщо його немає, то виводиться повідомлення.
Варіант-12
Вивести слово задом наперед.
Варіант-13
У заданому реченні знайти найдовше (найменше) слово.
Варіант-14
Скласти програму, яка із слова “інтеграл” утворює слово “гантелі”, “тигр”.
Варіант-15
Знайти найменше із слів, що записані в реченні.
Варіант-16
Написати програму, яка по назві дня неділі визначає номер цього дня 1...,2,...,7.
Варіант-17
Дана послідовність слів підрахувати скільки слів закінчуються на “А”.
Варіант-18
Скласти програму, яка підраховує скільки раз в послідовність слів зустрічається буквосполучення “сок”.
Варіант-19
Написати програму, яка виводить на екран коди всіх букв.
Варіант-20
Скласти програму, яка перевіряє чи поставили вкінці речення “крапку”.
Варіант-21
Програма підраховує число тих слів в, яких на другій позиції стоїть буква “А”.
Варіант-22
Скласти програму, яка виводить на екран всі символи після знаків “-“.
Варіант-23
Написати програму, яка визначає, чи являється введене слово “перевертишем” (напр. “ПОТОП”, “КАЗАК”).
Варіант-25
Скласти програму, яка вилучає із заданого слова всі букви “А”.
ю следующих рекуррентных соотношений где - целое. Отследить корретность ввода исходных данных.
2. Проводится лотерея "6 из 42".
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;