Можете проверить,а если не правильно,то исправить - вопрос №9705231110 от StasKras01 12.11.2020 20:04

Question

Информатика: Можете проверить,а если не правильно,то исправить ? var a: array [1..10] of integer; i: integer; begin for i: = 1 to 10 do readln (a[i]); 239 if a[i] 17 then; writeln (a[i]); end. само : . подсчитать количество элементов массива 17. массив из 10 элементов.

StasKras01 · Answer

var  a: array [1..10] of integer;    i, kol: integer; begin  kol := 0;  for i := 1 to 10 do    begin    readln(a[i]);    if a[i] 17 then kol += 1;    end;  writeln(kol); end....