На каком языке составить программу?
Если на Pascal то вот
<span>Program Number1;
var a, s : integer;
Begin
writeln(‘Введите цифру ‘);
readln(a);
S:=a*a;
</span><span>writeln(‘Площадь ‘, S);
end. </span>
Program zadacha;
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write ('Ââåäèòå a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Максимальный элемент равен ',max,', его номер ',nmax);
writeln ('Минимальный элемент равен ',min,', его номер ', nmin);
end.
Что вообще ты написала ?
просто так что ли?
#include <iostream>
using namespace std;
int main()
{
int n,k,i;
int array[100];
cin >> n;
for(i=0; i<n; i++)
{
cin >> array[i];
}
cin >> k;
for(i=0; i<n; i++)
{
if (k == array[i]){ break;}
}
if (k==array[i]) cout << i+1;
else cout << 0;
system("pause");
return 0;
}
Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 3=0 then
writeln('Делится на 3')
else writeln('Не делится на 3')
<span>end.</span>