створити і вивести масив а з nелементами,де n-20. у випадку відсутності шуканих елементів,вивести про це повідомлення. завд. Визначити суму
10-11 класс
|
номерів всіх негативних елементів. вивести ці номери.
Program Linao;
uses crt;
const n = 20;
var
x:array [1..n] of real;
i,k,j,sum:integer;
max, min,temp: real;
begin
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
begin
write('*');
for j:=1 to n*100000 do j:=j;
end;
writeln;
k:=0;
randomize;
sum:=0;
writeln('негативні елементи: ');
for i:=1 to n do
begin
x[i]:=random(101)-50;
if x[i]<0 then
begin
sum:=sum+i;
writeln(i,'-й елемент, рівний ',x[i]);
k:=1;
end;
end;
if k=0 then
writeln('Немає таких елементів!');
end.
Другие вопросы из категории
покупки больше 500 рублей, в 5% если сумма больше 1000 рублей.
первая дата больше второй.паскаль.тема записи
а)856
б)664
в)5012
г)6435
д)78
Читайте также
]Варіант-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
Скласти програму, яка вилучає із заданого слова всі букви “А”.
100 doA[i] : = i*i;for i : = 1 to 100 doB[i] : = A[i]-100;Сколько положительных значений будет в массиве B?
файлов. Маска представляет собой последовательность букв, цифр и
прочих допустимых в именах файлов символов, в которых также
могут встречаться следующие символы:
Символ «?» (вопросительный знак) означает ровно один произвольный символ.
Символ «*» (звёздочка) означает любую
последовательность символов произвольной длины, в том числе
«*» может задавать и пустую последовательность.
Определите, какое из указанных имён файлов удовлетворяет маске:
?mur*r.?st
1) mur.lst
2) omurr.sst
3) omur.sts
4) mur.lst
последовательность: 4, 1, 9, 3, 7, 5, из всех чисел которые больше 4 вычесть 3 затем удалить из всей последоательности нечетные числа
Пожалуйста с решением
данный массив.
s: = 0;
n : = 10 ;
for i : = 1 to n do
begin
if i = n - i then s : = s + A[i] + A[i + 1];
end;
В начале выполнения этого фрагмента в массиве находились числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, т. е. элемент А[0]=0, А[1]=2 и т. д. Чему будет равно значение переменной s после выполнения данной программы?
1) 0
2) 11
3) 22
4) 110
10;for n:=1 to 100 doB[n] := A[n]*n;Сколько элементов массива B будут иметь положительные значения?