Составить программу.Дан массив,состоящий из 5 элементов.Найти кол-во элементов равных 7.Числа 7,14,-3,7,0.
Ответы
Ответ дал:
0
var
a : array [1..100] of longint;
k,i : longint;
begin
k:=0;
for i:=1 to 5 do begin read(a[i]); if a[i]=k then k:=k+1; end;
writeln(k);
end.
a : array [1..100] of longint;
k,i : longint;
begin
k:=0;
for i:=1 to 5 do begin read(a[i]); if a[i]=k then k:=k+1; end;
writeln(k);
end.
Ответ дал:
0
var
a : array [1..100] of longint;
k,i : longint;
begin
k:=0;
for i:=1 to 5 do begin read(a[i]); if a[i]=7 then k:=k+1; end;
writeln(k);
end.
a : array [1..100] of longint;
k,i : longint;
begin
k:=0;
for i:=1 to 5 do begin read(a[i]); if a[i]=7 then k:=k+1; end;
writeln(k);
end.
Ответ дал:
0
вот это правильно, я там ошибся, не равно k а равно 7, потому что ищем семь
Ответ дал:
0
Но элементов всего 5
Ответ дал:
0
var
a : array [1..5] of integer;
k,i : integer;
begin
k:=0;
for i:=1 to 5 do
begin
read(a[i]); if a[i]=7 then k:=k+1; end;
writeln(k);
end.
Может так?
a : array [1..5] of integer;
k,i : integer;
begin
k:=0;
for i:=1 to 5 do
begin
read(a[i]); if a[i]=7 then k:=k+1; end;
writeln(k);
end.
Может так?
Ответ дал:
0
можно так, но ничего не изменится :)
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад