Регистрация
анна2250
22.06.2021 03:27
Информатика
Есть ответ 👍

Паскаль. дан массив. напечатать: 1) все элементы не превышающие число 100 2) все четные элементы 3) все элементы, являющиеся трехзначными числами 4) третий, шестой и т.д элементы. , все программы напишите полностью. не пишите по одной программе.

280
421
Посмотреть ответы 2

Ответы на вопрос:

muroslavka2003
muroslavka2003
4,8(36 оценок)
Const   n = 10; var   a: array[0..10] of integer;   i, s: integer; begin //заполнение массива сл. числами   for i : = 1 to n do   begin       a[i] : = random(201) - 100;       write(a[i]: 4);   end;   writeln; //1) все элементы не превышающие число 100   writeln('не больше 100 ');   for i : = 1 to n do       if a[i] < = 100 then           write( a[i]: 4);   writeln; // 2) все четные элементы   writeln('кратные двум ');   for i : = 1 to n do       if a[i] mod 2 = 0 then             write( a[i]: 4);   writeln; // 3) все элементы, являющиеся трехзначными числами     writeln('трехзначные ');   for i : = 1 to n do       if (a[i] < -99) or (a[i] > 99) then             write(a[i]: 4);   writeln; // 4) третий, шестой и т.д элементы.   i : = 3;   writeln(' номера 3, 6, 9 и  т.д.');   while i < n do   begin       write(a[i]: 4);       i : = i + 3;   end; end.
Zombie1466
Zombie1466
4,5(30 оценок)

ответ:

program s_2;

var a, b: real ;

begin  

writeln (' введите 1 и 2 число> > ') ;

readln ( a,b ) ;

if a> b ;

then a: = a-10 ;

else b: = b*2 ;

writeln ('ответ') ;

writeln ('первое число = ', a) ;

writeln ('второе число = ', b);

объяснение:

Популярно: Информатика