Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.
На с++
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int n, i, j, k(0),s(0);
cout << "vvedite kol-vo elementv \n";
cin >> n;
int *a = new int[n];
cout << "zapolnite massiv \n";
for (i = 0; i < n; i++)
{
cout << "a[" << i << "]=";
cin >> a[i];
}
for (i = 0; i<n; i++) {
k = 0;
for (j = 0; j<n; j++)
if (a[i] == a[j]) k++;
if (k == 1)
s++;
}
cout << "otvet: " <<s << endl;
return 0;
}
//PascalABC.NET v3.3 1633
var arr: array [1..9] of byte;
begin
for var i:=1 to 9 do
arr[i]:=random(50,60);
for var i:=1 to 9 do
writeln(arr[i]);
var sum:=0;
for var i:=1 to 9 do
sum += arr[i];
writeln('Сумма эл. массива: '+sum);
end.
Решение на паскале:
var
a: string;
b, c: byte;
begin
b := 0;
c := 0;
for c := 1 to 30 do
begin
readln(a);
if a = 'Петя' then b := b + 1;
end;
write(b);
end.