(не ) информатика паскаль abc хочу чтобы вот эта штука повторялась когда if 10 что написать? writeln - id878184120200817 от Lena2402bux 17.08.2020 10:14

Question

Информатика: (не ) информатика паскаль abc хочу чтобы вот эта штука повторялась когда if 10 что написать? writeln ( 1. 5+5=? ); readln(a); if a=10 then writeln( молодец ); if a 10 then writeln ( неправильно ); и дальше хочу чтобы нужно было еще раз было readln(a)

Lena2402bux · Accepted Answer

Pascal:
const n = 10;
var a:array [1..n] of integer;
i,max,c:integer;
begin
clrscr;
readln (a[1]);
max:=a[1];
c:=1;
for i:=2 to n do
begin
readln (a[i]);
if a[i]>max then
begin
max:=a[i];
c:=1;
end
else if a[i]=max then inc(c);
end;
writeln ('Kol-vo: ',c);
end.

C++:
#include <iostream>
using namespace std;

int main()
{
int a[10];
int c = 0,max;
cin >>a[0];
max = a[0];
for (int i = 1; i<10; i++)
{
cin >>a[i];
if (a[i]>max)
{
max = a[i];
c = 1;
}
else if (a[i]==max)
++c;
}
cout <<"KOL_VO: " <<c <<endl;
return 0;
}

MOGZ ответил