Pascal
5-9 класс
|
известна масса каждого из 12 предметов, определить массу самого тяжелого
var a:array [1..12] of integer; i,max:integer;
begin
for i:=1 to 12 do
begin
a[i]:=random(1,1000);
if a[i]>max then max:=a[i];
end;
writeln('naib. massa=',max);
end.
Комментарий удален
Комментарий удален
Другие вопросы из категории
Каждый символ кодируется одинаковым и минимально возможным количеством бит, а каждый номер – одинаковым и минимально возможным целым количеством байт. Определите объем памяти, необходимый для хранения 60 автомобильных номеров.
1) 240 байт 2) 300 байт 3) 360 байт 4) 420 байт
какие языки называются формальными?примеры?!
Сколько бит требуется для кодирования одного символа текста?
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC