Const N = 13; Var A:array[1..N] of integer; i:integer; S:real; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(' ',A[i]); if (i mod 2 = 0)and(A[i] < 0) then S:=S+A[i] End; WriteLn; WriteLn('S = ',S); ReadLn; End.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var m,n:integer; Write('Количество строк и столбцов матрицы: '); Read(n,m); var a:=MatrixRandom(n,m,10,99); for var i:=0 to n-1 do begin for var j:=0 to m-1 do Print(a[i,j]); Writeln end; var p:=ReadInteger('Введите число Р:'); var b:array of integer; SetLength(b,4*m); var k:=0; for var i:=n-p to n-1 do for var j:=0 to m-1 do if a[i,j] mod 4=0 then begin b[k]:=a[i,j]; Inc(k) end; SetLength(b,k); b.Print end.
Автор рассказа - Виктор Юзефович Драгунский (1913 - 1972), название рассказа - "Когда я был маленьким".
Главный герой рассказа в детстве плохо пережёвывал пищу и, чтобы поддержать мальчика, во время еды его мама рассказывала сказки. Одной из таких сказок была "Красная Шапочка". Во время рассказа мама напоминала ребёнку хорошенько жевать. После завершения сказки, когда по сюжету охотники разрезали брюхо волку и из него вылезли невредимыми Красная Шапочка и её бабушка, малыш заметил: "Не прожевал, значит, волк-то!" - что противоречило маминым призывам пережёвывать и поэтому звучало особенно забавно.
N = 13;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(' ',A[i]);
if (i mod 2 = 0)and(A[i] < 0) then S:=S+A[i]
End;
WriteLn;
WriteLn('S = ',S);
ReadLn;
End.