обьявить массив из 20 целых чисел
10-11 класс
|
var
a: array [1..20] of inyeger;
Комментарий удален
Другие вопросы из категории
1. Определите количество цветов в палитре при глубине цвета 4, 8,16, 24, 32 бита.
2. Черно-белое (без градаций серого) растровое графическое изображение имеет размер 10x10 точек. Какой объем памяти займет это изображение?
3. Цветное (с палитрой из 255 цветов) растровое графическое изображение имеет размер 10x10 точек. Какой объем памяти займет это изображение?
Читайте также
массив, а на следующей строке - сумму квадратов элементов с начетными индексами.
var A: array [1..20] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 20 do
begin
A[i]:=random(100);
write (' ',A[i] ');
end;
for i:=1 to 20 do
if imod2>0 then
s: = a[i]*a[i];
writeln;
writeln('s=',s);
readln;
end.
генератором случайных чисел (от 0 до 100) задан массив из 20 целых
чисел.составьте программу, с помощью которой напечатайте на одной
строчке исходный массив, а на следующей строке - сумму квадратов
элементов с начетными индексами
Один элемент массива соответствует количеству очков, набранных одним участником соревнований, и имеет значение от 0 до 30 включительно. Необходимо разработать программу, которая по данным массива вычисляет максимальное количество очков среди участников соревнований, и количество участников набравшее зачётное количество очков. Зачётное количество очков 18. Гарантируется, что хотя бы один участник соревнований набрал зачётное количество очков.
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.