Даны 2 числа, если первое больше второго, тогда записать в переменную С значение первого числа, если нет, второго числа и вывести его
Начало
А>B?
---ДА: C:=A
---НЕТ: С:=В
Вывести переменную С
Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;
Это все что я помню...
Const
N = 30;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
for i:=1 to N-1 do
if (a[i] mod 13=0) or (a[i+1] mod 13=0) then k:=k+1;
writeln('k=',k)
end.
Program up1;
var q:integer;
begin
writeln('введите число');
read(q);
if q>0 then write('число больше 0') else write('число меньше 0');
end.
какие слова получились , допиши вопос , я отвечу)))КАКие полученые шифровки?????????