2. Наберите таблицу в MS Word. Определение Примеры Свойства информации Актуальность Точность Объективность Доступность Полнота Ценность Достоверность Ясность
program asd; uses crt; var a: array[1..10] of integer; i:integer; sum:integer; begin writeln('Введите 10 цифр по очереди'); for i:=1 to 10 do begin readln(a[i]); if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end; end;
writeln(' ',sum);
end.
2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями?
3. program asd; uses crt; var a: array[1..10] of integer; i:integer; naib:integer; begin writeln('Введите 10 цифр по очереди'); for i:=1 to 10 do begin readln(a[i]); if (a[i]>naib) then naib:=a[i]; end;
1.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
sum:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end;
end;
writeln(' ',sum);
end.
2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями?
3.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
naib:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>naib) then naib:=a[i];
end;
writeln(' ',naib);
end.
var n:integer;
begin
read(n);
if (n=1) or (n=2) then writeln('1') else
if n<=999 then
if n mod 3 = 0 then writeln('2')
else writeln('1')
else if (n-1000) mod 3=0 then writeln('1')
else writeln('2')
end.
var n:integer;
begin
read(n);
if (n=1) or (n=2) then write('1') else
if n<=999 then
if n mod 3 = 0 then writeln('2')
else writeln('1')
else if (n-1000) mod 3=0 then write('1')
else writeln('2')
end.