Предмет: Информатика,
автор: andremixa
Задание по информатике нужно для школы(Паскаль)
Задание на фотке
Приложения:
Ответы
Автор ответа:
1
const N = 40;
var a:array[1..N] of integer;
i, x:integer;
begin
for i:=1 to N do begin
readln(a[i]);
if i<>1 then
if a[i]=a[1] then
x:=x+1;
end;
writeln(x);
end.
Интересные вопросы
Предмет: Алгебра,
автор: kamran200530
Предмет: Математика,
автор: tsibrovaa
Предмет: Биология,
автор: ajdirmasanlo7
Предмет: Математика,
автор: ann19992
Предмет: История,
автор: анна1366