1. Появление электронной почты можно отнести к 1965 году, когда сотрудники технологического института Массачусетс (MIT) Ноэль Моррис и Том Влек написали программу mail для операционной системы CTSS, установленную на компьютере IBM 7090/7094.
1)var a:array [0..5] of Integer; i,j:Integer; begin Randomize; j:=0; for i:=0 to 5 do a[i]:=Random(100); for i:=0 to 5 do if a[i] mod 3 =0 then Inc(j); Writeln(j); readln; 2)var a:array [0..5] of Integer; i,j:Integer; begin Randomize; j:=0; for i:=0 to 5 do a[i]:=Random(100); for i:=0 to 5 do if a[i] mod 2 =0 then j:=j+a[i]; Writeln(j); readln; 3)a:array [0..5] of Integer; i,s:Integer; begin Randomize; s:=1; for i:=0 to 5 do a[i]:=Random(9)+1; for i:=0 to 5 do if i mod 2 <>0 then s:=s*a[i]; Writeln(s); readln; end. 4)const n=5;m=5; var a:array [0..n,0..m] of Integer; i,j:Integer; begin Randomize; for i:=0 to n do for j:=0 to m do a[i,j]:=Random(100); for i:=0 to n do begin Writeln; for j:=0 to m do write(a[i,j]:3); end; for i:=0 to n do for j:=0 to m do begin if a[i,j] mod 2 =0 then a[i,j]:=2 else if a[i,j] mod 2 <>0 then a[i,j]:=1; end; Writeln; for i:=0 to n do begin Writeln; for j:=0 to m do write(a[i,j]:3); end; Readln; end. 5)const n=5;m=5; var a:array [0..n,0..m] of Integer; i,j:Integer; begin Randomize; for i:=0 to n do for j:=0 to m do a[i,j]:=Random(10); for i:=0 to n do begin Writeln; for j:=0 to m do write(a[i,j]:3); end; for i:=0 to n do for j:=0 to m do a[i,j]:=a[i,j]*2; Writeln; for i:=0 to n do begin Writeln; for j:=0 to m do write(a[i,j]:3); end; Readln; end.
В разделе описаний добавь еще одну переменную с типа integer и вместо последних 9-ти строк твоей программы должно быть:
{заполняем массив b минимальными элементами каждой строки} for i := 1 to 5 do begin for j := 1 to 5 do if a[i,j] < b[i] then b[i] := a[i,j]; Write(b[i], ' ') end; WriteLn; {сортируем массив b} for i := 1 to 4 do for i+1 := 1 to 5 do if b[i] < b[j] then begin c := b[i]; b[i] := b[j]; b[j] := c end; {выводим отсортированный массив на экран} for i := i to 5 do Write(b[i], ' '); WriteLn END.
1. Появление электронной почты можно отнести к 1965 году, когда сотрудники технологического института Массачусетс (MIT) Ноэль Моррис и Том Влек написали программу mail для операционной системы CTSS, установленную на компьютере IBM 7090/7094.
2. Gmail, Mail, Ukr.
3.