Регистрация
Andrey11jr
02.02.2021 03:13
Информатика
Есть ответ 👍

Дан одномерный массив.найти сумму чисел меньше 8

206
378
Посмотреть ответы 2

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

abroe
abroe
4,4(89 оценок)
Const   n = 16; var   a: array[1..n] of integer;   i, s: integer; begin   randomize;   writeln('элементы массива');   s : = 0;   for i : = 1 to n do   begin       a[i] : = random(20);       write(a[i]: 3);       if a[i]< 8 then s: =s+a[i]   end;   writeln;   writeln('сумма элементов, меньших 8, равна ',s) end. тестовое решение: элементы массива   8  5 12 10  4  7 11 18 13 17 18  2  5  1  3 16 сумма элементов, меньших 8, равна 27
egorka22a
egorka22a
4,4(13 оценок)
Var a: array[1..2,1..3] of integer; i,i1,i2,k: integer; z: real; begin writeln('vvedite storoni treugolnikov'); for i1: =1 to 2 do for i2: =1 to 3 do read(a[i1,i2]); for i1: =1 to 3 do for i2: =1 to 3 do begin if   a[1,i1]> a[1,i2] then begin k: =a[1,i2]; a[1,i2]: =a[1,i1]; a[1,i1]: =k; end; if   a[2,i1]> a[2,i2] then begin k: =a[2,i2]; a[2,i2]: =a[2,i1]; a[2,i1]: =k; end; end; z: =a[1,1]/a[2,1]; for i2: =1 to 3 do if a[1,i2]/a[2,i2]=z then i: =i+1; if i=3 then writeln('da') else writeln('net'); end.

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