Вычислить общее число учеников в школе

@Vika0242 · Регистрация: 19.02.2018

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

В массиве хранится информация о численностях учеников каждых из 42 классов школы. Выяснить, верно ли, что общее число учеников в школе есть четырехзначное число.
выполнить в lazarus
Помогите пожалуйста

@Puporev · 19.02.2018, 16:58

Pascal

procedure TForm1.Button1Click(Sender: TObject);
const n=42;
var a:array[1..n] of byte;
    i:byte;
    s:integer;
begin
 randomize;
 Memo1.Clear;
 Memo1.Lines.Add('Количество учеников в каждом из 42 классов');
 s:=0;
 for i:=1 to n do
  begin
    a[i]:=20+random(11);
    s:=s+a[i];
    Memo1.Text:=Memo1.Text+inttostr(a[i])+'  ';
    if i mod 14=0 then Memo1.Text:=Memo1.Text+#13#10;
   end;
 Memo1.Lines.Add('Всего учеников='+inttostr(s)+', это '+inttostr(length(inttostr(s)))+'х-значное число');
 
end;

@Vika0242 · 19.02.2018, 17:08 **[ТС]**

Спасибо большое! )

@Vika0242 0 / 0 / 0 Регистрация: 19.02.2018 Сообщений: 9
		1
	Вычислить общее число учеников в школе 19.02.2018, 16:33. Показов 1591. Ответов 2 Метки нет (Все метки) В массиве хранится информация о численностях учеников каждых из 42 классов школы. Выяснить, верно ли, что общее число учеников в школе есть четырехзначное число. выполнить в lazarus Помогите пожалуйста 0

@Vika0242 0 / 0 / 0 Регистрация: 19.02.2018 Сообщений: 9
	19.02.2018, 17:08 [ТС]	3
	Спасибо большое! ) 0

Вычислить общее число учеников в школе

Решение