массивы

@Дафка · Регистрация: 25.12.2009

Author24 — интернет-сервис помощи студентам

Задан массив, содержащий разряды рабочих завода. Посчитать количество трудящихся, работающих по первому разряду.

@yanyk1n · 25.12.2009, 19:37

Pascal

uses crt;
var m:array[1..100]of integer;
i,n,k:integer;
 
begin
 clrscr;
 write('Кол-во рабочих -> ');
 readln(n);
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 k:=0;
 for i:=1 to n do if m[i]=1 then inc(k);
 writeln('Всего на заводе ',k,' рабочих 1-го разряда');
 readln;
end.

@Дафка 0 / 0 / 0 Регистрация: 25.12.2009 Сообщений: 8
		1
	массивы 25.12.2009, 19:35. Показов 1318. Ответов 1 Метки нет (Все метки) Задан массив, содержащий разряды рабочих завода. Посчитать количество трудящихся, работающих по первому разряду. 0

	25.12.2009, 19:37

массивы

Решение