Составить программку.Дан массив,состоящий из 5 частей.Отыскать кол-во частей равных 7.Числа

Question

Составить программку.Дан массив,состоящий из 5 частей.Отыскать кол-во частей одинаковых 7.Числа 7,14,-3,7,0.

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Ekaterina Oleshnevich · Answer 1 · 2019-08-18 01:29:16+3:00

Ekaterina Oleshnevich 2019-08-18 01:29:16

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.

Darina Kuruljak 2019-08-18 01:34:46

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.

Boris Suharevskij 2019-08-18 01:41:22

вот это правильно, я там ошибся, не равно k а равно 7, поэтому что отыскиваем семь

Лущикин Гена 2019-08-18 01:48:32

Но частей всего 5

Мирослава Кулишнина 2019-08-18 01:58:04

vara : array [1..5] of integer;k,i : integer;begink:=0;for i:=1 to 5 do begin read(a[i]); if a[i]=7 then k:=k+1; end;writeln(k);end.Может так?

Лариса Блашенкова 2019-08-18 02:05:43

можно так, но ничего не поменяется :)