Раз в обоих заданиях известно количество элементов в массиве, то имеет смысл использовать цикл for.
Задание №1
const n=20;
var
a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do begin
a[i]:=random(1001);
if a[i] mod 10 = 4 then s:=s+1;
end;
writeln(s);
end.
<span>Задание №2
const n=20;
var
a:array[1..n] of integer;
i,max,nmax:integer;
begin
max:=0;
for i:=1 to n do begin
a[i]:=random(1001);
if a[i] >max then begin
nmax:=i;
max:=a[i];
end;
write(a[i]:5);
end;
writeln;
writeln(nmax,' ',a[nmax]);
end.
</span>
//////////////////////////////////////////////////////////
<span>Для того, чтобы сделать фоновый цвет, то нужно выбрать необходимый цвет и выбрать заливку.Для основного цвета необходимо выбрать цвет и рисовать кисточкой или карандашом.для намалювання прямоугольника необходимо на панели выбрать фигуру прямоугольника и нарисовать.</span>
С++
#include<iostream>
#include<cmath>
int y(int x){
if(x<-2){
return (abs(x)+2);
}else if(x >= -2 && x<= 2){
return 1;
}else{
return (x+1);
}
}
using namespace std;
int main(){
int x;
cin>>x;
cout<<y(x)<<endl;
return 0;
}
Паскаль
Program pr;
uses crt;
var x :integer;
fubction y(x: integer) int a begin
if x<-2 then
a:= abs(x)+2;
else if (x>=-2) and (x<=2) then
a:= 1;
else a:= x+1;
end;
begin
readln(x);
whiteln(y(x));
end;
Ответ:
Предполагаю что это один из шаблонов WordArt
Объяснение:
с уплотнением в 1 пт или более стандартным для этого шаблона шрифтом кегель опционально