:1. в массиве т(15) найти количество положительных, отрицательных и нулевых элементов 2. является ли количество букв во введённом слове четным? 3. дан фрагмент программы: for n: =1 to 5 do for m: =1 to 5 do c[n,m]: =(m-n)*(m-n) сколько элементов массива с будут равны 1? 4. в массиве a(20) найти сумму наибольшего и наименьшего элементов

200

260

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

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

Машуня55

Информатика

4,4(83 оценок)

1var i, minus, plus, zero: integer; t: array [1..15] of integer; begin minus : = 0; plus : = 0; zero : = 0; for i : = 1 to 15 do begin readln(t[i]); if t[i] > 0 then plus : = plus + 1; else if t[i] < 0 then minus : = minus + 1; else zero : = zero + 1; end; end. 2 var stroke: string; begin readln(stroke); if length(stroke) mod 2 = 0 then writeln('четно'); else writeln('нечетно'); end. 3 (сейчас далеко от компа, когда буду рядом отредачу) 4 var max, min, i: integer; a: array[1..20] of integer; begin min : = a[1]; max : = a[1]; for i : = 2 to 15 do begin if a[i] > max then max : = a[i]; if a[i] < min then min : = a[i]; end; end.