Program chik; var a:array[1..1000]of integer; h,i,n,x:integer; begin read(n); h:=0; for i:=1 to n do begin read(a[i]); end; read(x); for i:=1 to n do begin if(a[i]=x*x)then h:=h+1; end; write(h); end. 2) program chik2; var a,h:integer; begin a:=5; h:=0; while a<>0 do begin read(a); if(a<0)then h:=h+1; end; write(h); end. 3)program chik3; var a,h,s,p:real; begin a:=5; h:=0; while a<>0 do begin read(a); s:=s+a; h:=h+1; end; p:=s/h; write(p); end. 4)program chik4; var n,j,i:longint; begin read(n); for i:=1 to n do begin for j:=1 to i do begin write(j,' '); end; writeln; end; end. УДАЧИ!
vik-2202
23.08.2020
/* C++ compiler gcc (Ubuntu 5.2.1-22ubuntu2) 5.2.1 20151010 Copyright (C) 2015 Free Software Foundation, Inc. */
#include <iostream> #include <vector> using namespace std;
int main() { int count = 0; cout <<"Введите количество призывников: "; cin >>count; if (count>17) count=17; vector<int> tanks(count); for (unsigned i=0; i<tanks.size(); i++) cin >>tanks[i]; int min=300, max=0; for (unsigned i=0; i<tanks.size(); i++) { if (min>tanks[i]) min=tanks[i]; if (max<tanks[i]) max=tanks[i]; } int cnt=0; for (unsigned i=0; i<tanks.size(); i++) { if ((tanks[i]!=min) and (tanks[i]!=max)) cnt++; }
cout <<cnt <<endl; }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составить блок схему алгоритма, как вы собираетесь в школу.
var a:array[1..1000]of integer;
h,i,n,x:integer;
begin
read(n);
h:=0;
for i:=1 to n do
begin
read(a[i]);
end;
read(x);
for i:=1 to n do
begin
if(a[i]=x*x)then h:=h+1;
end;
write(h);
end.
2)
program chik2;
var a,h:integer;
begin
a:=5;
h:=0;
while a<>0 do
begin
read(a);
if(a<0)then h:=h+1;
end;
write(h);
end.
3)program chik3;
var a,h,s,p:real;
begin
a:=5;
h:=0;
while a<>0 do
begin
read(a);
s:=s+a;
h:=h+1;
end;
p:=s/h;
write(p);
end.
4)program chik4;
var n,j,i:longint;
begin
read(n);
for i:=1 to n do
begin
for j:=1 to i do
begin
write(j,' ');
end;
writeln;
end;
end.
УДАЧИ!