<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('>',ReadInteger('N='));
Writeln('Общий размер файлов, байт- ',a.Sum);
Writeln('Средний размер файла, Кбайт- ',a.Average/1024:0:2);
Writeln('Максимальный рзмер имеет файл №',a.IndexMax+1)
end.
<u>Пример</u>
N= 6
> 1300 830 263 1900 172 1500
Общий размер файлов, байт- 5965
Средний размер файла, Кбайт- 0.97
Максимальный рзмер имеет файл №4
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(19,0,200); a.Println;
Writeln('k=',a.Where(x->x<100).Count)
end.
<u><em>Тестовое решение</em></u>
127 120 137 75 141 61 116 13 52 180 109 80 91 36 71 191 56 7 108
k=10
<span>(2х2=6 или 3х3=10) и (2х2=4 или 3х3=9) </span>⇒
(Ложь или Ложь) и (Истина или Истина) ⇒ Ложь и Истина ⇒ Ложь
Program tovar;
Var s, n, c: integer;
begin
Write ('Сколько единиц товара закупили?');
Read (n);
Write ('Какова цена товара?');
Read (c);
s:=c*n;
Write ('Стоимость общей партии товара равна', s, 'руб.');
end.
Можно уточнение?
-Восимичеую? ЛИбо я что то перепутал, или у тебя опечатка...