<span>ячейку таблицы................</span>
2, 3, 5, 8, 13, 21, 34, 55, 89
Program primer;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
s:=s+a[i];
writeln('s=',s);
readln;
end.
program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if a[i] mod 2=0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if i mod 2 =0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
Home - переход в начало строки/документа
End - переход в конец строки/документа
Ctrl + -> - перенос каретки от текущей позиции до следующего слова.
Ctrl + <- - перенос каретки от текущей позиции до начала слова.
Page Up - перемотка страницы к началу страницы.
Page Down - перемотка страницы к концу страницы.
Ctrl + Page Up - переход к месту предыдущего изменения.
Ctrl + Page Down - переход к месту следующего изменения.
Вроде так)
Суть программы - вводите число, оно выводит это число, если оно делится на 5 и 7, иначе ничего не выводит.