Значения двух массивов А[1..100] и B[1..100] задаются следующим фрагментом программы for i:=1 to 100 do a[i]:=i-10; for i:=1 to 100 do B[i]:=a[i]*i; Сколько элементов массива будут иметь отрицательные значения? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do if a[i]>0 then s:=s+1; writeln(s); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 9; 0; -5; 0; 1) и фрагмент программы. N:=1; for i:=1 to 10 do if a[i]>a[n] then N:=i; writeln(n); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. N:=1; for i:=1 to 10 do if a[i]>a[n] then N:=i; writeln(a[n]); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do if a[i]>0 then s:=s+a[i]; writeln(s); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do s:=s+a[i]; writeln(s); Что будет напечатано? *
a,r:real;
begin
Write('Введите a и n: '); Read(a,r);
if a=2*r then Writeln('Квадрат описан около окружности')
else Writeln('Квадрат не описан около окружности')
end.
var
n:char;
cm:string;
begin
Write('Введите натуральное двухзначное число: '); Readln(cm);
Write('Введите цифру от 0 до 9: '); Readln(n);
if pos('3',cm)>0 then Writeln('В числе есть цифра 3')
else Writeln('В числе нет цифры 3');
if (pos('6',cm)>0) or (pos('7',cm)>0) or (pos('9',cm)>0)
then Writeln('В числе есть цифра 6,7 или 9')
else Writeln('В числе нет цифры 6,7 или 9');
if pos(n,cm)>0 then Writeln('В числе есть цифра ',n)
else Writeln('В числе нет цифры ',n)
end.